home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / AN.LSP < prev    next >
Text File  |  1992-09-13  |  545b  |  18 lines
  1. ;An.lsp (put numbers in a column)
  2. ;
  3. ;
  4. (setq oer  *error*  *error*  err2)
  5. (princ "\nNumbers in a Row.")
  6. (Setq A (Getint "\nStarting Number: "))
  7. (Setq B (Getint "\nEnding Number: "))
  8. (Setq P1 (Getpoint "Starting Point: "))
  9. (Setq C (Getdist P1 "\nDistance Between Numbers: "))
  10. (Setq A1 (Getangle P1 "\nAngle To Run Numbers: "))
  11. (If (> A B)(Setq E - 1)(Setq E 1))
  12. (Repeat (+ 1 (Abs (- A B)))
  13. (Setq F (Itoa A))
  14. (Command "Text" P1 0 F)
  15. (Setq A (+ A E))
  16. (Setq P1 (Polar P1 A1 C)))
  17. (princ)(setq a nil b nil p1 nil c nil a1 nil f nil )
  18.